home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Util / rexx / dock2fkey.lha / dock2fkey next >
Text File  |  2004-07-12  |  450b  |  20 lines
  1. /* $VER: dock2key 1.1 $
  2.  * AmiDock prefs to FKey
  3.  * Bind first dock to Amiga-F1 etc.
  4.  * © by Stefan Haubenthal 2002/04
  5.  */
  6. if ~show(p,"FKEY.1") then do
  7.     address command "run >nil: fkey"
  8.     address command waitforport FKEY.1
  9. end
  10. f=1
  11. if open(env,"ENV:Sys/AmiDock.prefs") then do
  12.     do while ~eof(env)
  13.         parse value readln(env) with "ICON: "args
  14.         if args~="" & f<=12 then do
  15.             address FKEY.1 'addkey "RAMIGA F'f'" cmd 6 args' args
  16.             f=f+1
  17.         end
  18.     end
  19. end
  20.